home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / vr2___i6.p2s < prev    next >
Encoding:
Text File  |  1994-07-13  |  5.8 KB  |  234 lines
  1.                                ###########################################################################
  2. #
  3. # file name: VR2___I6.P2S
  4. # description:  open video in, record, play and close
  5. # settings: 
  6. #           rate: 1 frames per sec
  7. #           compression: indeo
  8. #           video quality: 5000
  9. #           audio: 11025 samples per sec, 16 bits, 2 channel, volume 100
  10. #           video source: 640 x 480
  11. #           video destination: 320 x 240
  12. #           brightness 60
  13. #           contrast   75
  14. ###########################################################################
  15.  
  16. ############################################
  17. #
  18. #   open Video In
  19. #
  20. ############################################
  21.  
  22. OPEN DIGITALVIDEO02 ALIAS VID SHAREABLE NOTIFY
  23. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  24. @WAIT_NOTIFY 1 45000
  25.  
  26. ############################################
  27. #
  28. #   set video monitor on/off
  29. #
  30. ############################################
  31.  
  32. SET VID MONITOR ON NOTIFY
  33. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #57
  34. @WAIT_NOTIFY 57 30000
  35.  
  36. ############################################
  37. #
  38. #   enable audio monitor
  39. #
  40. ############################################
  41.  
  42. CONNECTION VID QUERY TYPE WAVE STREAM ALIAS AMP WAIT
  43.  
  44. SET AMP MONITOR ON WAIT
  45.  
  46. ############################################
  47. #
  48. #   load a new file
  49. #
  50. ############################################
  51.  
  52. LOAD VID NEW NOTIFY
  53. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #13
  54. @WAIT_NOTIFY 13 30000
  55.  
  56. ############################################
  57. #
  58. #   set time format to milliseconds
  59. #
  60. ############################################
  61.  
  62. SET VID TIME FORMAT MILLISECONDS NOTIFY
  63. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #17
  64. @WAIT_NOTIFY 17 30000
  65.  
  66. ############################################
  67. #
  68. #   set the frames per sec (1,30)
  69. #
  70. ############################################
  71.  
  72. SET VID VIDEO RECORD RATE 1 NOTIFY
  73. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #21
  74. @WAIT_NOTIFY 21 30000
  75.  
  76. ############################################
  77. #
  78. #   set compression type:
  79. #     - DIB:  raw = uncompressed
  80. #     - ULTI: ultimotion
  81. #     - RT21: indeo
  82. #
  83. ############################################
  84.  
  85. SET VID VIDEO COMPRESSION RT21 NOTIFY
  86. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #25
  87. @WAIT_NOTIFY 25 30000
  88.  
  89. ############################################
  90. #
  91. #   set video quality (0-10000)
  92. #
  93. ############################################
  94.  
  95. SET VID VIDEO QUALITY 5000 NOTIFY
  96. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #29
  97. @WAIT_NOTIFY 29 30000
  98.  
  99. ############################################
  100. #
  101. #   set audio parameters:
  102. #     - SAMPLESPERSEC: 11025,22050,44100
  103. #     - CHANNEL: 1,2
  104. #     - BITSPERSAMPLE: 8,16
  105. #     - VOLUME: 0-100
  106. #
  107. ############################################
  108.  
  109. SET VID SAMPLESPERSEC 11025 NOTIFY
  110. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #33
  111. @WAIT_NOTIFY 33 30000
  112.  
  113. SET VID CHANNELS 2 NOTIFY
  114. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #37
  115. @WAIT_NOTIFY 37 30000
  116.  
  117. SET VID BITSPERSAMPLE 16 NOTIFY
  118. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #41
  119. @WAIT_NOTIFY 41 30000
  120.  
  121. SET VID AUDIO VOLUME 100 NOTIFY
  122. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #45
  123. @WAIT_NOTIFY 45 30000
  124.  
  125. ############################################
  126. #
  127. #   set window size
  128. #
  129. ############################################
  130.  
  131. PUT VID RECORD SOURCE AT 0 0 640 480 NOTIFY
  132. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PUT #49
  133. @WAIT_NOTIFY 49 30000
  134.  
  135. PUT VID RECORD DESTINATION AT 0 0 320 240 NOTIFY
  136. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PUT #53
  137. @WAIT_NOTIFY 53 30000
  138.  
  139. ###################################################
  140. #
  141. #    check some default status
  142. ###################################################
  143.  
  144. status vid contrast wait
  145.  
  146. set vid contrast 75 wait
  147.  
  148. status vid contrast wait
  149. =75
  150.  
  151. status vid brightness wait
  152.  
  153. set vid brightness 60 wait
  154.  
  155. status vid brightness wait
  156. =60
  157.  
  158. status vid mode wait
  159. =stopped
  160.  
  161. ############################################
  162. #
  163. #   message to user: play source
  164. #
  165. ############################################
  166.  
  167. @BREAK Make sure that the source is already playing
  168.  
  169. ##############################################################################
  170. # force an error with a bogus record value                                   #
  171. ##############################################################################
  172. #
  173. record vid at -50 100 0 0 wait
  174. =!ERROR
  175.  
  176.  
  177. @PAUSE 2000
  178. #
  179.  
  180. ############################################
  181. #
  182. #   attempt to record with a negative value should return error
  183. #   record for 10 seconds
  184. #
  185. ############################################
  186. record vid to -5000 notify
  187. =!ERROR
  188.  
  189.  
  190. RECORD VID to 3000 NOTIFY
  191. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #81
  192. @WAIT_NOTIFY 81 10000
  193.  
  194. ##############################################################################
  195. # play the 1 second of the video                                             #
  196. ##############################################################################
  197. #
  198. play vid to 1000 notify
  199. @PAUSE 1000
  200. #
  201. ###############################################
  202. ##############################################################################
  203. # Save to video using the 'video' paramater                                  #
  204. ###############################################save vid 
  205.  
  206. save VID ?AP2PATH?bitmap.bmp wait
  207.  
  208. ############################################################################################
  209. ############################################
  210. #
  211. #   play the file
  212. #
  213. ############################################
  214.  
  215. PLAY VID FROM 0 NOTIFY
  216. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #84
  217. @WAIT_NOTIFY 84 50000
  218.  
  219.  
  220. load vid ?AP2PATH?bitmap.bmp wait
  221.  
  222. play vid  to 1000 wait
  223.  
  224. @pause 5000
  225. ############################################
  226. #
  227. #   close video in
  228. #
  229. ############################################
  230. CLOSE VID NOTIFY
  231. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #99
  232. @WAIT_NOTIFY 99 30000
  233.  
  234.